﻿Imports System.Data.OleDb

Public Class myProgress
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        Dim UserID As String
        Dim MemUser As MembershipUser
        MemUser = Membership.GetUser
        UserID = MemUser.ProviderUserKey.ToString

        Dim SqlPString As String = "SELECT * from tblProgress where UserID =" & UserID
        If Request.Params("PID") = Nothing Or Request.Params("PID") = "" Then
            dsProgress.SelectCommand = SqlPString
        Else
            'dsProgress.SelectCommand = "SELECT DISTINCT [UserName], [Title], [UserID], [Description], [Picture], [Weight], [EntryDate], [ID], [CommentsCount] FROM [ProgressTagView] WHERE ([Tag] = ?) ORDER BY [ID] DESC"
        End If
    End Sub


End Class